home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / mail / mh / contrib / 9209 / prune-mail < prev    next >
Text File  |  1992-09-20  |  822b  |  24 lines
  1. #! /bin/csh -f
  2. # eliminate all messages in $1 with duplicate message-ids
  3. #
  4. # Subject: MH utility to delete duplicate messages in a folder
  5. # Date: Wed, 19 Aug 92 11:48:45 -0400
  6. # From: Bob Munck <munck@Stars.Reston.Unisys.COM>
  7. # 
  8. # I debated using "$1" everywhere I have "+$1", since the user
  9. # would then need the "+" and would be following MH conventions
  10. # more closely.  I suppose a real convention-following utility
  11. # would also allow defaulting by using Path from ~/.mh-profile
  12. # to find context and getting Current-Folder from it.  
  13.  
  14. if ( ( $#argv == 0 ) || ( $1 == -help ) || ( $1 == -h ) ) then
  15.    echo 'USAGE: prune-mail folder'
  16.    exit 0
  17.    endif
  18. folder +$1
  19. set s =  `scan +$1 -format "%4(putnumf(msg))    %{message-id}"|sort +1|uniq -d +5|sed 's/    .*$//'`
  20. if ( "$s" != "" ) then
  21.    rmm $s +$1
  22.    folder +$1
  23.    endif
  24.